Public Class Atividade

    Private strDescricao As String
    Private strPremissa As String
    Private lstEstimativa As List(Of Estimativa)

    Public Sub New(ByVal strDescricao As String, ByVal strPremissa As String, ByVal lstEstimativa As List(Of Estimativa))
        Me.strDescricao = strDescricao
        Me.strPremissa = strPremissa
        Me.lstEstimativa = lstEstimativa
    End Sub

    Public Sub setDescricao(ByVal Descricao As String)
        strDescricao = Descricao
    End Sub

    Public Function getDescricao() As String
        getDescricao = strDescricao
    End Function

    Public Sub setPremissa(ByVal Premissa As String)
        strPremissa = Premissa
    End Sub

    Public Function getPremissa() As String
        getPremissa = strPremissa
    End Function

    Public Sub setEstimativas(ByVal Estimativas As List(Of Estimativa))
        lstEstimativa = Estimativas
    End Sub

    Public Function getEstimativas() As List(Of Estimativa)
        getEstimativas = lstEstimativa
    End Function

End Class
